restore

(^E)show

MacVec 256 array copy /xxx /|______Helvetica dup RF findfont exch pop 8 ys div scalefont setfont

left top wdist 1 add ys div add m

clpr storerect

save

% titles